-- if the XObject is not embedded in this movie, we close
-- the link to it this way:
-- closeXLib gCurPath & "DATA:OBJEX:STAGEPIC.XBJ"
end if
end
--
on MovieStatus
set the width of sprite 30 = ((the movietime of sprite 2 * the width of sprite 29)/the duration of cast the castnum of sprite 2) - 2
end
on SayIt theText
if the machinetype <> 256 then
global gSpeakObj
if objectP( gSpeakObj ) then
gSpeakObj( mSpeakText, theText )
end if
end if
end SayIt
on numVoices
-- Speak the number of voices installed on this machine
global gSpeakObj
if objectP( gSpeakObj ) then
set num to gSpeakObj( mCountVoices )
set theText to "There are "
put string( num ) after theText
put " voices installed on this Macintosh." after theText
repeat while TRUE = gSpeakObj( mAreWeSpeaking )
end repeat
gSpeakObj( mSpeakText, theText )
end if
end numVoices
on NameAll
-- Speak the names of all voices installed on this machine
global gSpeakObj
if objectP( gSpeakObj ) then
gSpeakObj( mSpeakText, "Here is a list of all the voices on this Macintosh.")
set max to gSpeakObj( mCountVoices )
set i to 1
repeat while i <= max
set voiceName to gSpeakObj( mGetVoiceByIndex, i )
put " " after voiceName -- put brief pause after each name
repeat while TRUE = gSpeakObj( mAreWeSpeaking ) -- pause until done speaking
end repeat
gSpeakObj( mSpeakText, voiceName )
set i to i + 1
end repeat
end if
end NameAll
on waitTillDone
global gSpeakObj
repeat while TRUE = gSpeakObj( mAreWeSpeaking ) -- pause until done speaking
end repeat
end waitTillDone
-- **********************************
on helpTool
open window "controls"
end
on OpenMemory
set theWindowTop = 0
set theWindowLeft = 450
set theWindowWidth = 130
set theWindowHeight = 12
set the rect of window "Control2" to rect(theWindowLeft + the stageleft,theWindowTop + the stagetop + theWindowTop, theWindowWidth + the stageleft + theWindowLeft, theWindowHeight + the stagetop)
set the windowType of window "Control2" to 2
open window "Control2"
end
on OpenControl
set theWindowTop = 0
set theWindowLeft = 266
set theWindowWidth = 150
set theWindowHeight = 12
set the rect of window "Controls" to rect(theWindowLeft + the stageleft,theWindowTop + the stagetop + theWindowTop, theWindowWidth + the stageleft + theWindowLeft, theWindowHeight + the stagetop)
set the windowType of window "Controls" to 2
open window "Controls"
end
on MoveControl
set theWindowTop = 0
set theWindowLeft = 0
set theWindowWidth = 160
set theWindowHeight = 12
repeat while theWindowLeft < 640
set theWindowLeft = theWindowLeft + 5
set the rect of window "Control2" to rect(theWindowLeft + the stageleft,theWindowTop + the stagetop + theWindowTop, theWindowWidth + the stageleft + theWindowLeft, theWindowHeight + the stagetop)
end repeat
end
on pictPlus lowest, highest
puppetsprite 4, true
set the center of cast 4 to true
if the castnum of sprite 4 < highest then
set the castnum of sprite 4 to the castnum of sprite 4 + 1
updatestage
else
set the castnum of sprite 4 to lowest
updatestage
end if
preloadcast the castnum of sprite 4 - 3, the castnum of sprite 4 + 3
end
on pictMinus lowest, highest
puppetsprite 4, true
if the castnum of sprite 4 > lowest then
set the castnum of sprite 4 to the castnum of sprite 4 - 1
updatestage
else
set the castnum of sprite 4 to highest
updatestage
end if
preloadcast the castnum of sprite 4 - 3, the castnum of sprite 4 + 3
end
on mouseNoises
global mouseClickNoise
set mouseClickNoise = true
if the machinetype <> 256 then if mouseClickNoise = true then nothing --puppetsound "BEEP"